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Ztitle *OBJGSD - » snot yee GSD Records’ 


meee Oi iieat = *yes-O08") 


begin 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS abe yz BY htt ea ae A LICENSE AND MAY BE USED AND ad bo 


CL 
COPIES THEREOF my NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
laa TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
PORPORAT tte NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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! Facility: VAX/VMS Analyze Facility, Analyze GSD Object Records 
Abstract: This module handles the analysis of GSD records. 
' Environment: 


Author: Paul C. Anagnostopoulos, Creation Date: 20 January 1980 
i Moditied By: 


v03-004 MCNO175 Maria del C. Nasr 9-Jul-1984 
rocessing environment subrecords call 
ANC SOBIECT -ENV_REF and not ANLSOBJECT _PSECT_REF. 
v03-003 ADE0001 Alan D. Eldridge 66-Jul-1984 
Add ENVS$SV_NESTED support. 


v03-002 MCNO158 Maria del C. Nasr 22-Mar-1984 
Add size parameter to call to ANLSCHECK_SYMBOL. 


v03-001 PCA1011 Paul C. Anagnostopoulos 11-Apr-1983 
Change the message prefix to ANLOBJ$. to ensure that 
message symbois are unique across alt ANALYZEs. This 
is necessitated by the new merged message files. 


AX-11 Bliss-32 V4.0-74 
ANAL YZ. SRC JOBJGSD.B832; 
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14-Sep-19 ANAL YZ. SRC JOBUGSD.832; 


Isbttl "Module Declarations’ 
Libraries and Requires: 


Library ‘starlet’; 
require ‘objexereq’; 


' 
Table of Contents: 


forward routine 
anl$object_gsd: novalue, 
anl$object_argument_dsc, 
ani$object_psect_re?: novalue, 
an\$object_psect_check: novalue, 
ani$object_env_ref: novalue, 
ani$object_env_check: novalue; 


' 
External References: 


external routine 
at {| bey ng aoe 
anl$check_sym ol, 
anl$format_data_type, 
anl$format_error, 
an l$format_flags, 
an\$format_hex, 
anl$format_line, 
anl$format_mask,— 
ant zopcaes sever ity, 
anl$object_record_line, 
anl($report_line, : 
Lib$free_vm: addressing_mode(general), 
Lib$get_vm: addressing_mode(general); 


: Own Variables: 


! The following variables are needed to keep track of psect references and 
! check their validity. 


own 


highest_def_psect: signed long initi f 


al 
highest_ref_psect: signed long initial 
psect ref bits: ref bitvector’65536]; 


! The following variables perform the same function, but for environments. 


(- 
(- 


Own 
highest_def_env: signed long initial(- 
highest _ref_env: atpnes tong initial(- 

env_ref_bits: ref bitvectorl65556); 
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Tsbttl "ANLSOBJECT_GSD = Analyze GSD Object Records‘ 
oe 


Functional Description: 
This routine is responsible for analyzing the GSD object records. 


Formal Parameters: : 
record_number The number of this object record. 
the_record Address of descriptor of the object record. 


wn —O0Oeo~ 


! Implicit Inputs: 
global date 


SO DONOVUVESWRO 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 
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global routine anl$object_gsd(record_number,the_record): novalue = begin 
bind 


pale lelejleleleleleleleleleleloelelelelalolalela/ a] ala] = mEp 
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record_dsc = .the_record: descriptor; 


® 
eq 
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ANLSOBJECT_GSD = Analyze GSD Object Records 14-Sep-1984 11:52:5 ANALYZ.SRCJOBJGSD.B32;1 (4) 
0577 : The following data structures define the various flag bytes and words 
b2f8 ! that are present in GSD records. 
$34 ! This defines the flags in a psect definition subrecord: 
beet own 
beRi psc_flags_def: vector{t! Leng? initial( 
0585 uplit byte(Zascic 'GPS$V_PIC'), 
0586 2 uplit byte(Zascic ‘GPS$V_LIB"), 
0587 2 uplit byte(%ascic ‘GPS$V_OVL"), 
0588 uplit byte(Zascic ‘GPS$V_REL'), 
0589 uplit byte(Zascic ‘GPS$V_GBL'), 
0590 uplit byte(Zascic ‘GPS$V_SHR'), 
0591 § uplit byte(Zascic ‘GPS$V_EXE'), 
B26 uplit byte(Zascic ‘GPS$V_RD') 
0593 2 uplit byte(%ascic 'GPS$V-WRT'S, 
Bene § uplit byte(Zascic 'GPS$V_VEC')); 
4443 2 ! This defines the flags in the symbol, entry point, and procedure subrecords. 
0598 sown tty 
0599 2 sym_flags_def: vector(5,long] initial ( 
0600 2 i : 
0601 2 uplit byte(Zascic "GSY$V_WEAK'), 
0602 2 uplit byte(Zascic 'GSY$V_DEF'), 
0603 2 uplit byte(Zascic "GSY$V_UNI'), 
bens § uplit byte(%ascic "GSY$V_REL')); 
bene § ! This defines the flags in the environment subrecord. 
0608 2 own eae 
+44 § env_flags_def: vector(3,long] initial ( 
0611 2 uplit byte(Zascic 'ENV$V_DEF'), 
berg $ uplit byte(Zascic "ENVSV_NESTED')); 
pele § ! This defines the flags in the entity check subrecord. 
0616 2 own : eee 
sdf 4 $ entity _flags_def: vector([2,long] initial ( 
0619 2 uplit byte(Zascic "IDC$V_BINIDENT")); 
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voue ANLSOBJECT GS - Analyze GSD Object Records 14-Sep-1984 #7 :83:88 ANALYZ.SRCJ0BJGSD.B32; 1 a 
150 bes, 5 Ow d_subrecord torlgsd$ 1,long] initial ¢ 
gsd_subrecord msg: vector([gsd$c_maxrectyp+1,lon nitia 
191 06 ¢ : antobj$ ob gsdpsc, 
138 06 anlobj$_objgsdsym, 
19 0624 anlobj$_ob]gsdepm, 
194 0625 anlob]$_objgsdpro, 
195 06 $ anobj$~0b] gsdsymy, 
196 06 anlobj$_ob]gsdepmw, 
197 0628 antobj$-0bjgsdprow, 
198 0629 anlobj$_ob]gsdidc, 
199 0630 anlob)$_ob]gsdenv, 
soy tH anlobj$-objgsdisy, 
01 06 ¢ anlobj$_ob]gsdlepm, 
a4 063 anlob)$_objgsdlpro, 
20 0634 anlobj$_objgsdspsc); 
204 0635 
205 0636 2 local 
206 0637 2 status: long, 
207 0638 2 gsd_type: a te 
208 0639 2 scanp: ref block(,bytel, 
209 0640 2 subrecord_number: long, 
210 0641 2 fit.ok: byte, | 
211 0642 2 work_dsc: descriptor; 
si¢ 0645 2 
21 0644 2 : 
$i¢ Reez § ! We begin by printing a major Line for the record. 
$1$ 04 § anl$object_record_line(anlobj$_objgsdrec,.record_number,record_dsc); 
218 0649 2 ! Now we go into a corr processing the subrecords in the record. 
219 0650 2 ! SUBRECORD NUMBER will count them as we go. 
220 0651 2 ! SCANP will advance along the various subrecords of the record. 
$$) $636 § ! FIT_OK will remain true unless a field spills off the end of the record. 
223 0654 2 subrecord_number = 0; 
224 0655 2 scanp = .record_dsc(ptr] + 1; 
225 0656 2 fit ok = true; ; 
$58 of 44 ; while (.scanp lssa .record_dsc(ptr]+.record_dscllen]) and .fit_ok do ( 
228 0659 3 ! Count the subrecord and prepare to press it nicely. Then print a 
229 0660 3 ! minor Line for the subrecord. If the subrecord type is invalic, 
230 0661 3 ! show the user and forget the record. 
231 0662 3 : 
$38 0663 3 increment (subrecord_number); 
25 0664 3 anl$report_line(0); 
234 0665 3 
235 0666 3 gsd_type = .scanp(0,0,8,0); 
236 0667 3 if .gsd_type lequ gsdéc maxrectyp then 
237 0668 3 anl$format_linet2,1,.gsd_subrecord_msgl.gsd_type],.subrecord_number) 
238 0669 4 else ( ; ; 
239 0670 4 ent Prorast .grrorianteb iS objgedbedeubtye. .996 type? 2 
240 0671 4 build_descriptor(work_dsc,.record_dscllen]=-(.Scanp-.record_dsc(ptr]),.record_dsc(ptr]); 
$e 0672 4 anl$format_hex(2,work_dsc); 
42 06735 4 return; 
243 0674 ; 3 
244 0675 
245 0676 3 ! Now we can select on the subrecord type and analyze the subrecord. 
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679 Cgsd$c_psc, 

s ? gsd$c~spscd: 

6 § ! We have a psect definition subrecord. The first field 

06 ! contains the psect alignment. Print it and check it. 

bee ! Also include the psect number for this guy. 

0686 (ensure_field_fit(gps$b_align,record_dsc?; 

0687 if .fitZok then ( 

0688 increment (highest_def_psect); | ; 

0689 ani $format_line(0,2,anTobj$ obj gsdpscal ign, 1*.scanpCgps$b_al ign], 

0690 «highest _def_psect); 

0691 if .scanplgps$b_align] gfru Obj$c_pscalilim then — A 

bee ;' anlS$format_error(anlobj$_objgsdbadalign,obj$c_pscalilim); 

0694 : 

+944 ! The next field is the flags byte. Print it and check it. 

0697 ensure _field fit(gps$w_flags,record_dsc); 

0699 — Sot tp fl (2 Lobj$_objgsd fl C $w_fl J fl def) 

anl$format_flags(2,anlobj$_objgsdpsc s,.scanplgps$w_flags],psc_flags_def); 

Bene , onlScheck, Plage (.scenplgpsSu. tlags).psc flags. def! ° 

0702 : 

444 ! The next field is the allocation size. Print it and check. 

0705 ensure_field fit(gps$l_alloc,record_dsc); 

OOF if .fit ok then ( 


anl$format_line(0 ¢-enlobsS_objgedascel loc, .scanplgpeSt al lec); 

if -scanpl ps8 _al 'Sttff fff’ then 

: an at ple Mahe 5 poh aad bed yteen 1 ged { 

if not .scanplgps$v_rel] and .scanplgps \_alloc] nequ 0 then 
anl$format_error(anlobj$_objpscabslen); 


oc] gtru %x 


The next field is only present in shareable image psect 
entries. It contain the base address of the psect in 
the shareable image. Print it and check. We also have 
! to set up SCANP for the next field, since it can be at 
! two different offset. 


if .gsd_type eqlu gsd$c_spsc then ( 
ensure field tit(sgps$l_base,record_dsc); 
if .fit_lok then 2 ; ‘ 
anl$format_line(0,2,anlobj$_objgsdpscbase,.scanp[sgps$l_base]); 
Zo scanp = scanplsgps$b_naming); 
else 


AUilWr OC OONOAUEWN-O0O@ 


scanp = scanplgps$b_naming); 
' The final field is the psect name. Print it and check it. 


ensure_ascic fit(0,0,8,0,record_dsc ,work_dsc); 
if .fif_ok then ( ; 

ani $fornet Line (0.2.anlobjS_ obj syabol , .vork_dscllon],.work ésclptr)):; 
anl$check_Symbol (work _dsc, obj$c_symsiz); 
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ar3? ? ! Finally, advance the scan pointer past this subrecord. 
08 0738 : peanp = .work dsc(ptr] + .work_dscllen]; 


we 


Bie Be Oe Oe Be Oe Oe Oe Se Oe Se Oe Se Be Be SH Se Oe BH Se Se FH Se BH Se Se Se Be Se SH Se Se Be Se SH Oe Se SH Se Se Se Se Se Oe Se Se SH Se Se Se Se Ss Se Se Se Ss we 


vO4=000 


AANA NW NWWIADIPIPOPIPOPININUPLY 2 4 SO SS Se 
SO OOWNA VE WN $0 OBNO VE WN " O OONOUE WN 


AANA NON WNWwrw 


341 


, ee 


AAAI AAA AA AAA AAW 
OWBNO VE WHO O 


Www 
APAARAS 
NO we 


AAA AMAMANAMAMAGIMIUVIV 


wn 


4H 12 
OBJGSD = Analyze GSD Records 15-Sep-19 
ANLSOBJECT_GS 


OONA MEW OOONA WE 


COOCCOCCOCOCOCOCOCCOOCOCOCOCOOCoOO 
PUPP SSIS EE 


SSNS SSNS SSS 


2S 


yo oe oe ot oe oF oF oF ot oF yt al a) 4) ah Ah dh hb dh ah ah eh ee ee ee et eh a a et et et et et et et tk 1 | 


0784 


079 


AX-11 Bliss-32 v4.0- 


i 4 $3233: 36 742 
- Analyze GSD Object Records 14-Sep-1984 11:52:5 ANALYZ.SRCJOBJGSD.B32; 


gsdec_lepm, 


: We have a symbol specification, entry point definition, 
! or procedure definition. As we proceed, we will need to 
! know if it is a symbol specification and what kina. 


(Local 
symbol_spec: byte, 
symbol def: byte; 


! ALL of these records begin with a data type, so let's print 
! it in the report. 


ensure field fit(gsy$b_datyp,record_dsc); 
if .fiflok then (¢ 
anl$format_data_type(2,.scanplgsy$b_datyp]); 


! ALL the records also contain a byte of flags. Let's print 
! them and check. ; ; 

! There was a BUG in the V2 Linker that sometimes caused 

! flag 11 to be set. To avoid a flood of SPRs, we will 

! force that flag off so we won't produce an error. 


ensure_field fit(gsy$w_flags,record_dsc); 

$: ane ee fl (2,anlobj$_obj fl Cgsy$w_flags] fl def) 
anl$format_flags(2,anlobj$_objsymflags,.scanplgsy$w_flags],sym_flags_def); 
anl$check_flags(.scanplgsy$w_flags] and ix t? ff? sy. flags det 3 


! Now Let's figure out if this is a symbol specification. 
' Also record whether it is a reference or definition. 


symbol_spec = (.gsd_type eqlu gsd$c_sym) or 
(.gsd_type eqiu gsd$c_symw) or 
(.gsd_type eqlu geehe bys 
symbol _def = .scanplgsy$v_defJ; 


; 

! From now on it becomes hard to keep track of where we 

! are, since different subrecords have different formats. 
' we will use SCANP to point at successive fields. 

scanp = scanplgsy$w_flags] + 2; 


' At this point we have an environment index if this is a 
! Local symbol subrecord. 
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797 & if .gsd_type eqlu gsd$c_isy or 


798 gsd_type eqlu gsd$c_lepm or 

799 -gsd_type eqlu eet al ro then ( 

800 ensure field fi€(0,0,16,0,record_dsc); 

801 t .fif_ok then ( : 

a6 ani gtocast 1 inet’ Ff -enieb it. se eny,.scanpl0,0,16,0]); 
80 anlSobject_env_ref(.scanpl0,0, 6,04); 

804 scanp = .scanp * 2; 

oho ’ ; 

809 | 

8 ! At this point we have some fields that are present in all 
80 ! records except symbol references. 


if not (.symbol_spec and not .symbol_def) then ( 


! OK, since it’s not a symbol reference, then the 
! next thing is a psect number. It may be a byte 
! or a word. Print it and record the reference. 


if (.gsd_type eqlu gsd$c_sym) or 
(.gsd_type eqlu gsd$c_epm) or 
(.gsd_type eglu gsd$c Brg? then ( 
énsure_field fitt0,0,8,0.record_dsc); 
if .fiflok then ¢ : 
anl$format_Line(0,2,anlobj$ gdjogect .scanpl0.0.8.03); 
anl$object_psect_ref(.scanp[0,0,8,0]); 
; increment (scanp); 


) else ( 


ensure_field fit(0,0,16,0,record_dsc); 

if .fit_ok then ( } ; 
anl$format_line(0,2,anlobj$ gbjosec ty scanpl0.0.16.03); 
anl$object_psect_ref(.scanpf0, 16,01); 
scanp = .scanp + 2; 

ds 


! Continuing on, these records contain a longword 
! vatue. Print it and check it. 


ensure field fiti0,0,32,0,record_dsc); 

if .fit_lok hen ; : 
anl$format_line(0,2,anlobj$_objvalue,.scanpl0,0,52,0)); 
scanp = .scanp + 4 
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! Whew. OK, now we have the entry mask, but not if 
! it's a symbol definition (or reference, of course). 
! Print it and check it. 


if not (.symbol spec and .symbol def) then ( 
ensure Field fit(0,0,16,0,record_dsc); 
if .fit_ok then ( 
anl$format_mask(2,.scanpl0,0,16,0)); 
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incru i from 1 to .max_args do ( — : A 
anl$format_lLine(0,2,anlobj$_objproargnum,.i); 


fit_ok = anl$object_argument_dsc(3,scanp.record_dsc); 
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0854 7 scanp = .scanp * 2; 
5 g ); wh 
; ” 

4 ; 
0 28 4 
+H & ! OK, mow all cases join together. We have the name of the 
peed ? ! symbol or entry point. Print it and check it. 
bees 4 ensure_ascic fit(0,0,8,0,record_dsc,work_dsc); 
086 ; f .fif_ok then ( , 
0864 anl$format_lLine(0,2,anlobj$_objsymbol,.work_dscllen],.work_dsc(ptr]); 
Ober H epee agg tage hy pot ee ob cs - ); 

scanp = .work_dsc(ptr «work _dscllenJj; 

OBe? 4 ); 
0868 4 
0869 4 ! Well, we're done unless it’s a procedure definition. If so, 
+e 7 ! we have the argument counts and formal descriptors. 
0872 4 if .gsd_type eqlu gsd$c_pro or 
$873 4 “Sod- type eqlu gsd$¢ pros or 
0874 5 -gsd_type eqlu gsd$c_lpro then ( 
0875 5 
0876 5 local 
0877 5 max_args: long; 
0878 5 : 
0879 5 ! First we have two bytes contgining the minimum and 
sth] 2 ! maximum argument counts. Print them and check. 
0882 5 ensure _field fit(0,0,16,0,record_dsc); 
0883 6 if .fif_ok then ‘ : 
0884 6 al $format Line(0 # entoh IS sb larger args . {Scene S 8.8 02s.8aneet OBST 
0885 6 it .scanp(0,0,8,0) gtru .scanpl!,0,8,03 then 
0886 6 anl$tormat_error(anlo }$_objprominmax) ; 
0887 6 max_args = sscanplT.0,8,01; 
0888 6 scanp = .scanp * 2; 
0889 6 ; 
0890 6 ! Now we have the formal argument descriptors, 
0891 6 ! one for each argument. 
0892 6 

? 
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Cgsd$c_idc): 


! We have an entity identity ag tg check subrecord 
! (groan). The first field is flags, although it contains 
! some other stuff we must ignore. 


Sax 


(Local 
binary: byte; 


3333 


rape’ Hrold fittidcSu_flags.record_dsc); 


4 

4 

4 

4 
O37 3 “enletor at fl (2 lLobj$_objgsdidcfl CidcSw_fl ] i ft def) 

1 anl\$forma ags(2,anlobj$_objgsdidcflags..scanplidc$w_flags],entity s_def); 
8018 5 oniScheck Flaget.scenpe racSu. tlegs) and tx'ffttticl*.entits flags deh); 
0914 4 ; 
0915 4 ! If this is a binary identity, then the flags contain a 
Bor$ 2 i match control value. Print it and check. 
0918 4 if (binary = .scanplidc$v_binident]) then 
0919 4 ase .scanplidc$v_idmatch] from 0 to 3 of set ; 
0920 4 idc$c_leq]: anl$format_line(0,2,anlobj$_objgsdidcmatch,uplit byte(Zascic *LEQ*)) 
0921 4 idc$c_egual]: anl$format_line(0,2,anlobj$_objgsdidcmatch,uplit byte(Zascic "EQUAL" 
$356 : tarenge : anl$format_error(anlobj$_objJbadidcmatch,.scanplidc$v_binident]); 
es; 
se 
34 +4 ? ! There is also a standard error severity in the flags word. 
Oe5e ? anl$format_severity(2,.scanplidc$v_errsev]); 
44 , : ! Next we have the entity name. 
0931 4 ensure_ascic fit(idc$b_naming,record_dsc,work_dsc); 
0932 4 if .fit_ok then aes eee 
0933 4 anl$format_line(0,2,anlobj$ Sb gedtarent ..uarh_SOetians, are Sut igerT) 
pat . scanp = .work_dsc(ptr] + .work_dsc(Ten]; 
0936 4 ! This next field is the identity value. It is a counted 
a4 44 ? ! string, which can be a longword value. 
0939 4 ensure_ascic_fit(0,0,8,0,record_dsc,work_dsc); 
0940 4 if .fif_lok then 
0941 4 if .binary then ; ‘ egy 
Boe 2 anl$format_line(0,2,anlobj$_objgsdidcvalb,.scanpil,0,32,0)) 
else 
0944 4 ap Stqrnet_\ taet8.4 anlobj$_objgsdidcvala,.work_dscClen],.work_dsc(ptr]); 
Boe? : scanp = .work_dsc(ptr] + .work_dsc len); 
+944 : ! Finally, we have the name of the object. 
0949 4 ensure _ascic_ fit(0,0,8,0,record_dsc,work_dsc); 
0950 4 if .fif_ok then : ; ie ; 
14h : anl$format_line(0,2,anlobj$_objgsdidcobj,.work_dsclClen],.work_dsc(ptr]); 
et . ! Advance on past this subrecord. 

0955 ‘ scene = ,work_dsc(ptr] * .work_dscllen]; 


br abval val eal val eal val ab aleal val eal alee! 
DPAAM AUN & 
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Cgsd$c_env]: 
! We have an environment specification subrecord. The 


Bet : ! first field is flags, which we print and check. 
$366 4 (ensure_ vyets. fitlenv$w Specert: dsc); 
096 if .fitlok then ( 
964 5 ht (highest _def_eny 
965 ani $format tlagstotentsess. ab jgsdenvt Lage, i flagsl,env_flags_def); 
B208 2 anl$check_Flags(.scanplenv$w_flagsJ.env_flags_def) 
968 4 : 
969 4 ' The next field is the parent environment index. Print 
Baro : ' it with this environment's index, and check it. 
0972 4 ensure Waste fit(env$w_envindx,record_dsc); 
0973 5 f .fi then ( 
0974 § Mea hterent: Line(0,2,anlobj$ Me gree’ nam cia ctnrate envindx], .highest_def_env); 
0975 § anlSobject_env _ret(. scanpLenv$w_envindx 
si8 : 
3444 2 ' The final field is the environment name. Print it and check. 
0980 4 ensure_ascic fit(env$b_naming,record_dsc,work_dsc); 
0981 5 if .fif_ok then ( 
0982 5 “anl$format_line(0,2,anlobj$ <obisyabet . -vork. dscClen],.work_dscCptr]); 
0983 5 anl$check _Symbol (work _ dsc, Obj$c_symsiz); 
0984 4 ); 
0985 4 
+44] 2 ! Finally, advance the scan pointer past this record. 
0988 4 scanp = .work_dsc(ptr] + .work_dscllen]; 
0989 3 3 
0990 3 
0991 3 tes; 
0992 3 
099 ); 
0994 
0995 return; 
0996 2 
0997 1 end; 
-TITLE OBJGSD OBJGSD = Analyze GSD Records 
-IDENT \V04-000\ 
-PSECT S$PLITS,NOWRT ,NOEXE,2 
43 49 50 SF 56 3 53 50 47 09 QO0000 P.AAA: .ASCII <9>\GPS$V_PIC\ : 
42 49 4C SF 56 24 53 50 47 O09 QOOOA P.AAB: .ASCII <9>\GPS$V~LIB\ : 
4C 56 4F SF 56 24 53 50 47 O09 Q0014 P.AAC: .ASCII <9>\GPS$V_OVL\ ‘ 
4C 45 52 SF 56 24 53 50 47 O9 poe te P.AAD: .ASCII <9>\GPS$V_REL\ ¢ 
4C 42 67 SF 56 4 53 50 47 O9 Boos P.AAE: .ASCII <9>\GPS$V_GBL\ ; 
52 48 53 SF 56 24 53 50 47 09 00032 P.AAF: .ASCII <9>\GPSS$V_SHR\ F 
45 58 45 SF 56 24 53 50 47 O9 QOO3C P.AAG: .ASCII <9>\GPS$v~ EXEN : 
44 2s SF 656 4 53 50 47 Q8 00046 P.AAH: .ASCII <8>\GPS$V_RD\ ; 
54 52 57 SF 56 24 53 50 47 09 QOO4F P.AAL: .ASCII] <9>\GPS$V~WRT\ ; 


ce 


vO4=000 


ANL 


48 


44 45 56 
54 4E 45 44 49 


/00000000* 00000000° 
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000000006 000000006 000000006 
000000006 000000006 000000006 
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43 4 56 F $6 24 58 4? 09 
4) 4 F 56 26 4? OA 
46 465 46 5F 56 26 59 4? 09 
49 4 35 F 56 24 59 t 
4C 4 F 56 24 59 47 09 
46 43 46 SF 656 24 36 4E 45 09 
5 46 RF 56 64 56 Ot 45 OC 
bE 469 62 SF 56 26 43 44 49 0 
3] 45 af 08 
4c 41 55 51 45 0 
FFEFFFFE 
FFEFFFFF 
FFFFFFFF 
FFFFFFFF 
00000009 
00000000* 00000000" 00000000* 00000000° 
00000000* 00000000" 00000000" 00000000° 
00000003 
00000000" 00000000' 00000000" 00000000' 
00000001 
00000000" 00000000° 
00000000 
00000000' 
000000006 000000006 000000006 
000000006 000000006 000000006 
000000006 
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$098 P. AAJ ASCII <9>\GPS$V_VEC\ 
0063 P.AAK: .ASCII] <10>\GSYSP_WEAK\ 
OO6E P.AAL atti) <9>\GSY$V_BEF\ 
0078 P.AAM: .ASCII <9>\GSY$V=UNI\ 
Bae P.AAN: .ASCII <9>\GSYS$V_REL\ 
OO8C P.AAO: ASCII <9>\ENVSV“DEF\ 
00 «AAP: = ASCII = <12>\ENVSU_NESTED\ 
QOAS P.AAQ: ASCII <14>\IDCSVIBINIDENT\ 
OOB2 P.AA «ASCII <3>\LEQ\ 
00086 P.AAS: .ASCII <5>\EQUAL\ 
-PSECT SOWNS,NOEXE,2 


00000 HIGHEST_DEF PSECT: 
00004 HIGHEST_REF SECT: 
00008 PSECT_REF BITS: 
0000C HIGHEST iff ENV: 
00010 HIGHEST REF ENV: 


LO <1 
00014 ENV_REF_BITS: 

.BLKB 
00018 PSC_FLAGS DEF: 3 
0001¢ “ADDRESS P.AAA, P.AAB, P.AAC, P.AAD, P.AAE, - 
00034 P.AAF, P.AAG, P.AAH, P.AAI, P.AAJ 
00044 SYM_FLAGS DEF: 
00048 ADDRESS P.AAK, P.AAL, P.AAM, P.AAN 
00058 ENV_ FLAGS Roe ' 
0005¢ “ADDRESS. P.AAO, P.AAP 
00064 ENTITY FLAGS DEF 
00068 ADDRESS P.AAQ 
0006C GSD_SUBRECORD_MSG: 

.LONG” ANLOBJ$_OBJGSDPSC, ANLOBJ$_OBJGSDSYM, - 

00084 ANLOBJ$"~OBJGSDEPM, ANLOBJ$~OBJGSDPRO, 
0009¢ ANLOBJ$"OBJGSDSYMW, ANLOBJS OBJGSDE PM, - 


ANLOBJ$_OBJGSDPROW, ANL06.)$ .06GS01DC. - 


ANLOBJ$"OBJGSDENV, ANLOBJ$ OBJGSDLSY, 
ANLOBJ$~ “OBJGSDLEPM, ANLOBJS$ _OBJGSDLPRO, 
ANLOBJ$"OBJGSDSPSC 


.EXTRN ANLOBJ$_OK ANL OBS _ANY THING 
TEXTRN ANLOBJS“DATATY 

EXTRN ANL O88 PRRARCOUNT 

-EXTRN ANLOBJ$"ERRORNON 

-EXTRN ANLOBJ$~ TERRORS « ANLOBJ$_EXEF XA 
-EXTRN ANLOBJS“EXEF I XAIMAGE 

-EXTRN ANLOBJS~EXEF IXAL INE 

EXTRN ANLOBJS~EXEF IXCOUNT 

-EXTRN ANLOBUSEXEF IXEXTRA 

-EXTRN ANLOBJSTEXEF IXF IXED 
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LYZ.SRCJOBJGSD.832; 

ANLOBJS_EXEFIXFLAGS 
ANLOBJ$_EXEF IXG 
ANLOBJ$~EXEF IXGIMAGE 
ANLOBJS$_EXEF IXGLINE 
ANLOBJS_EXEFIXLIST 
ANLOBJ$~EXEF I XNAME 
ANLOBJ$~EXEF I XNAMEO 
ANLOBJS_EXEF IXP 
ANLOBJS_EXEF IXPSECT 
ANLOBJ$_EXEF IxuP 
ANL OBJ $~EXEF I XUPNONE 
ANLOBJS"EXEGST, ANLOBJ$_EXEHDR 
ANL OBJ$~EXEHDRACTIVE 
ANLOBJ$_EXEHDRBLKCOUNT 
ANLOBJ$_E XEHDRCHANCOUNT 
ANLOBJ$_ EXEHDRCHANDEF 
ANL OBJ $~EXEHDRDECECO 
ANLOBJ$_EXEHDRDMT 
ANLOBJ$~ EMEHDRDST 
ANLOBJS_ EXEHDRE ILEID 
ANLOBJ$~  EXEHDRE IXED 
ANL OBJ$_E XEHDRF LAGS 
ANLOBJ$~ Min tee 1; ee 
ANLOBJ$_ EXEHDRGST 
ANLOBJS_ EXEHDRIDENT 
ANLOBJ$_ EXEHDRIMAGE ID 
ANLOBJ$_EXEHDRISD 
ANLOBJ$_ EXEHDRISDBASE 
ANLOBJ$~EXEHDRI SDCOUNT 
ANLOBJ$_EXEHDRISDFLAGS 
ANLOBJ$~  EXEHDRISDGBLNAM 

LOBJ$~ _EXEHDRISDNUM 
ANLOBJ$_ EXEHDRISDPFCDEF 
ANLOBJ$_ EXEHDRISDPFCSIZ 
ANLOBJS_ EXEHDRISDTYPE 
ANLOBJ$~ _EXEHDRISDVBN 
ANLOBJ$_ EXEHDRLINKID 
ANLOBJ$_ EXEHDRMATCH 
ANLOBJ$~ _E XEHDRNAME 
ANLOBJ$— EXEHDRNOPATCH 
ANLOBJ$_ EXEHDRPAGE COUNT 
ANL OBJ$7E XEHDRPA GEDEF 
ANLOBJ$_EXEHDRPATCH 
ANLOBJ$“EXEHDRPAT CHDATE 
ANLOBJS$_EXEHDRPRIV 
ANLOBJ$_ EXEHDRROPATCH 
ANLOBJ$— EXEHDRRWPATCH 
ANLOBJ$~EXEHDRSYMDBG 
ANLOBJS$_EXEHDRSYSVER 
ANLOBJ$~  EXEHDRTEXTVBN 
ANLOBJ$— EXEHDRT IME 
ANL OBJ$~EXEHDRTYPEEXE 
ANLOBJ$~EXEHDRTYPEL IM 
ANL OBJ $~E XEHDRUSERE CO 
ANLOBJ$~EXEHDRXF ERI 
ANLOBJ$ BE eter ty 
ANLOBJ$~ _EMEHDRAFER 
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ANALYZ.SRCJOBJGSD.B32;1 


ANLOBU$ $-EXEHEADING 
ANC OB at FLAG ANL OBS. HEXDATA 
ANLOBJ$~HE XHE AD 
ANC OBIS“ HEXHEADING2 
ANLOBJ$~ INDMSGSEC 
Art OBJ$- INTERACT 
0B/$~ =HASK ANL OBJS_ OBJ CPRREC 


_ANLOBJS_OBJEOMFLAGS 


OMWRE C 
ANLOBJ$_ -oeaea 
ANLOBJ$_OBJGSDENV 

ANLOBJ$_ “OBLGSDENVELAGS 


CFLAGS 


Y 
.OBJGSDPRO 
ANLOBJ$_ “paieabpat 
ANLOBJ$_OBJGSDPSC 
ANLOBJ$_OBJGSDPSCAL IGN 
ANLOBJ$_OBJGSDPSCALLOC 
ANLOBJ$_ OBJ GSDPSCBASE 
ANLOBJ$_OBJGSDPSCFLAGS 
ANLOBJ$_OBJGSDREC 


GTXREC 
ANLOBJ$_ ~OBJHDRIGNREC 
ANLOBJ$_OBJHEAD ING 
ANLOBJ$_OBJLITINDEX 


ANLOBJ$_OBJMHDSTREVL 


13 
OBJGSD OBJGSD = Analyze GSD Records 1$-se -198 
v04=000 12-8ep-198 


. 42 Page 17 
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: $:29 Ax-11 BLi 0-7 
52:5 ANALYZ.SR B32; (9) 
E 


MTCU 
RN ANLOBJS$_ in tlh St A 
TRN ANLOBJ$_OBJMTCWHEN 
TRN ANLOBJS$~ OB JPROARGCOUNT 
TRN ANLOBJ$_OBJPROARGNUM 
TRN ANLOBJ$_OBJPSECT 
XTRN ANLOBJ$_OBJSRCREC 
XTRN ANLOBJ$_OBJSTATHEADING1 
XTRN ANLOBJS~ “italia 
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ERITY 
XTRN ANLOBJ$_ UA ANLOBJ$_TEXTHDR 
XTRN ANLOBJ$_NOSUCHMOD 

XTRN ANLOBJ$_ BAT E 

XTRN ANLOBJ$_ ~BADHORBL COUNT 


SYMLEN 
XTRN ANLOBJ$_EXEBADF I XUPEND 
XTRN ANLOBJ$_ 
XTRN ANLOBJ 


XTRN aeons 


EXE 
~EXE 
—EXEBA 
~EXEBA 
“EXEBA 
“EXEBA 
~EXEBA 
“EXE 
“EXE 
wEXE 
~EXE 
~EXE 
“EXE 
~EXE 
~EXE 
“EXT 
“FIE 
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.EXTRN ANLOBJ$_FLAGERROR 
SEXTRN ANLOBJ$-~NOTOK ANLOBJS_ OBJBADIDCMATCH 
*EXTRN ANL OB § OBJBADNU 


. JHDRRES 
«EXTRN AN OBUS~ ~OBJMHDBADRECS1Z 
-EXTRN ANLOBJ$~OBJMHDBADSTRLVL 
-EXTRN ANLOBJ$_OBJMHDMISSING 
-EXTRN ANLOBJS$_ eee 
-EXTRN ANLOBJ$_OBJNOPS 

-EXTRN ANLOBJ$_ ~OBINULLREC 
-EXTRN ANLOBJ$_OBJPOSPACE 
-EXTRN ANLOBJ$~OBJPROMINMAX 
-EXTRN ANLOBJ$_OBJPSCABSLEN 
~-EXTRN ANLOBJS$_ ~eititeee 
-EXTRN ANLOBJ$_OBJTIRRES 
-EXTRN ANLOBJ$~ ~OBJUNDEF ENV 
-EXTRN ANLOBJ$_OBJUNDEFLIT 
-EXTRN ANLOBJS— eit 


~EXTRN ANLSFORMAT FLAGS 

~EXTRN Me 3 ORR “HEX. ANL $F ORMAT_LINE 
-EXTRN ANLSFORMAT~MASK 

~EXTRN ANC SEORMAT= “SEVERITY 

~EXTRN ANLSOBJECT =RE CORD. LINE 

-EXTRN ANLSREPORT 

TEXTRN LIBSFREE va YTBSGET _vM 


-PSECT SCODES,NOWRT,2 


OFFC 00000 -ENTRY am son ery GSD, Save R2,R3,R4,R5,R6,R7,R8,- 
5B 00000000G 8F D0 00002 MOVL #ANLOBIS_ FIELDFIT, R11 
5E 0C C2 00009 SUBL 2 #1 SP 
56 08 AC 00 0000C MOVL THE RECORD, R6 
56 DD 00010 PUSHL R6 
04 AC ODD 90018 PUSHL RECORD_NUMBER 
00000000G 8F DD 0001 PUSHL #ANLOBJ$_OBJGSDREC 
0000G CF 03 FB 0001B CALLS #3, ANLSOBJECT RECORD_LINE 
59 D4 00020 CLRL SUBRE CORD NUMBER 
6£ 04 Ab 01 ¢€1 00022 ADDL3) = #1, eine). SCANP 
53 01 90 00027 MOVB #i, FIT 
52 6— DO OO02A 1$: MOVL SCANP, Ro 
54 66 3C 0002D MOVZWL (R6), R4 


~o 
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54 06 Ae CO 900 0 ADDL2 4(R6) : 
54 52 D1 00034 CMPL ~=sR2, ne * : 
01 Ff 900 7 BLSSU 2 : 
04 00039 RET 3 
01 53 8 0003A 2$: BLBS FIT_OK, 3$ : 
4 90030 RET : 
59 D6 OOO3E 3S: INCL SUBRE CORD. NUMBER 3 0663 
7E D4 00040 CLAL 5(5P) 3 0664 
0000G CF 01 FB B0066 CALLS ea ULINE : 
SA 62 90 0004 MOVB tad) TYPE 3 0666 
55 5A 9A 0004A MOVZBL 6s. tee, “R5 3 0667 
0c 55 91 90040 CMPB R5, #12 ; 
12 1A 00050 BGTRU ; : 
59 DD 00052 PUSHL SUBRECORD_NUMBER ; 0668 
0000'CF45 DD 00054 PUSHL GSD_SUBRETORD_MSG[R5S] : 
01 DD 00059 PUSHL #1 : 
02 DD 00058 PUSHL #2 : 
00006 CF 04 FB 0005D CALLS #4, ANLSFORMAT_LINE 3 
2A 11 00062 BRB 5$ : 
55 DD 00064 4$: PUSHL 5 : 0670 
000000006 8F DD 00066 PUSHL #ANLOB$ OBJ GSDBADSUBTYP : 
00006 CF 02 FB 0006C CALLS #2 LSFORR RROR : 
50 04 Ab $2 ¢3 00071 SUBL 3 Re, athe : 0671 
51 66 3C 00076 MOVZWL (R6), : 
04 AE 50 51 C1 00079 ADDL3 R17 ko” * yonn DSC ; 
08 AE 04 A6 DO 0007 MOVL 4(R6), WORK BSC +4 F 
04 AE 9F 0008 PUSHAB WORK_DSC : 0672 
02 DD 00086 PUSHL #2 : 
00006 CF 02 FB 00088 CALLS #2, ANLSFORMAT_HEX : 
04 00080 RET ; 0669 
0c 00 55 BF OOOBE 5$: CASEB RS, #0, #12 ; 0678 
0165 0165 0165 001A 00092 6$: WORD 7$-6$ : 
0410 0165 0165 0165 0009A 23$-6$,- ; 
0165 0165 0165 05DC 000A2 23$-6$,- : 
001A OOOAA 23$-6$,- : 
23$-6$,- : 
23$-6$,- 3 
23$-6$,- ; 
53$-6$,- : 
72$-6$,- : 
tt be te ; 
3$-6$,- ; 
23$-6$,- : 
7$-6$ ; 
7E 53 £9 OOOAC 7$: BLBC FIT OK, 11% > 0686 
50 02 A2 9E OOOAF MOVAB 2(R2), RO : 
54 50 D1 00083 L  ~—s RO, RE F 
09 18 00086 BLEQU &$ : 
5B DD 00088 PUSHL R11 ; 
00006 CF 01 FB O00BA CALLS #1, ANLSFORMAT_ERROR ; 
53 94 O00BF CLRB FIT_Ok : 
7E 53 £9 000C1 8$: BLBC FIT"OK, 128 > 0687 
0000" CF 06 000C4 INCL HIGREST_DEF _PSECT ; 0688 
0000" CF DD 000C8 PUSHL HIGHEST pero PSECT : 0690 
7E 01 A2 78 OO0CC ASHL 1(R2), B (SP) : 0689 
000000006 8F DD 00001 PUSHL  #ANLOBJ$_OBJGSDPSCAL IGN : 
02 DD 000D7 PUSHL #2 ; 
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7E 04 00009 CLAL -(SP) : 
00006 cf 05 FB 90008 CALLS #5, ANLSFORMAT_LINE ; 
9 01 A2 91 OOOE CMPB 1(R2), #9 3 0691 
OD 18 bO0Es BLEQU 9S : 
09 DD OO00E6 PUSHL #9 3 0692 
00000000G 8F DD OO0ES PUSHL #ANLOBJ$_OBJGSDBADAL IGN : 
0000G CF 08 FB Bpoe CALLS #2, ANLSFORMAT_ERROR : 
4C E9 OOOFS 9S BLBC FIT_OK, 12 + 0697 
50 04 ag 9E OOOF6 MOVAB 4(R2), RO : 
54 50 D1 OOOFA CMPL RO, R& : 
09 1B O000FD BLEGU 10$ : 
5B DD O00rF PUSHL R11 : 
0000G CF 01 FB 00101 CALLS #1, ANLSFORMAT_ERROR : 
53 94 00106 CLRB 3s FIL T_OK : 
76 53 €9 00108 108: LBC FIT-OK, 14 3 0698 
0000" CF 9F 0010B PUSHAB PSC~FLAGS_DEF 3 0699 
7E 02 A2 3C 0010F MOVZWL 2(R2), -(5P) : 
000000006 8F DD 00113 PUSHL #ANLOBJ$_OBJGSDPSCFLAGS : 
02 DD 00119 PUSHL #2 : 
0000G CF 04 FB 0011B CALLS #4, ANLSFORMAT_FLAGS ; 
0000" CF 9F 00120 PUSHAB PSC_FLAGS_DEF : 0700 
7E 02 A2 3C€ 00124 MOVZ2WL 2(R2), =(5P) : 
0000G CF O¢ FB 00128 CALLS #2, ANLSCHECK_FLAGS 3 
51 53 €9 0012D 118: BLBC FIT_OK, 14$ : 0705 
50 08 A2 99E 00130 MOVAB 8(R2), R 3 
54 50 D1 00134 CMPL RO, R4 : 
09 1B 00137 BLEQU 128 : 
5B DD 00139 PUSHL R11 : 
0000G CF 01 FB 0013B CALLS #1, ANLSFORMAT_ERROR : 
53 94 00140 CLARE AT. : 
3C 53 £9 00142 128: BLBC FIT~OK, 148 : 0706 
04 A2 DD 00145 PUSHL 4(R2) : 0707 
000000006 8F DD 00148 PUSHL #ANLOBJ$_OBJGSDPSCALLOC : 
02 DD 0014E PUSHL #2 $ 
7E 04 00150 CLRL -(SP) ; 
0000G CF 04 FB 00152 CALLS #4, ANLSFORMAT_LINE : 
SFFEFFFRE 06 BF 04 A2 01 00157 CMPL 4(R2), #1073747823 : 0708 
OB 1B 0015F BLEQU 13$ : 
60000000G 8F DD 00161 PUSHL #ANLOBJ$_OBJPOSPACE : 0709 
0000G CF 01 FB 00167 CALLS #1, ANLSFORMAT_ERROR 3 
10 02 A2 03 £0 0016C 13$: BBS #3, 2(R2), 148 : 0710 
04 A2 05 00171 TSTL 4(R2) r 
0B 13 00174 BEQL 14$ ; 
000000006 8F DD 90176 PUSHL #ANLOBJ$_OBJPSCABSLEN : 0711 
0000G CF 01 FB O017C CALLS #1, ANLSFORMAT_ERROR : 
0c 55 91 00181 148: CMPB 5. #12 : 0720 
2F 12 00184 BNEQ 17% : 
27 53 £9 00186 BLBC FIT_OK, 16% : 0721 
50 Oc A2 9E 00189 MOVAB 12(R2), RO : 
54 50 D1 0018D CMPL RO, R4 : 
09 1B 00190 BLEQU 15$ ; 
5B DD 00192 PUSHL R11 : 
00006 CF 01 FB 00194 CALLS #1, ANLSFORMAT_ERROR : 
53 94 00199 CLRB Ss FI T_OK 3 
12 53 £9 00198 158: BLBC FIT~OK, 16% : 0722 
08 A2 ODD 0019E PUSHL 8(R2) : 072 
000000006 8F DD 001A PUSHL #ANLOBJ$_OBJGSDPSCBASE ; 
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) vO4-000 ANLSOBJECT_GSD = Analyze GSD Object Records 14-5 O71 9be $7 :33:28 PANALYZ. SRC OBJGSD.B32;1 a (35 
$86 0086 ons, Uw t om 
04 55 91 00267 CMPB RS, #6 : 
0¢ 12 0026A BNEQ 278 : 
5 b8 026C INCL R1 : 
51 50 ¢B8 00 of 27$: BISL2 RO, RI : 
50 D4 00271 CLRL =. RO : 0783 
09 55 91 00273 CMPB RD, #9 : 
02 12 00276 BNEQ 288 : 
50 06 00278 INCL. RO : 
58 50 51 89 0027A 28$: 81583 R1, RO. SYMBOL_SPEC : 
50 02 A2 91 o1 ff b0e7E EXTZV. #1. #1. 2(R2), "RO : 0784 
7 0 90 00284 MOVB RO. SYMBOL_DEF 3 
6£ 04 CO 00287 29%: ADDL2 #4, SCANP : 0792 
09 55 91 O028A CMPB. RS. #9 : 0797 
0A 13 0028 BEQL 308 : 
OA 55 91 0028F CMPB RS, #10 + 0798 
05 13 00292 BEQL 6-308 ; 
0B 55 91 00294 CMPB RS, #11 + 0799 
37 12 00297 BNEQ : 
34 53 €9 00299 30$:  BLBC_ FIT_OK, 328 + 0800 
50 bE 02 ¢1 0029¢ ADDL3 #2,~SCANP, RO : 
54 50 D1 002A0 CMPL = RO, RG : 
09 1B 002A3 BLEQU 318 : 
5B 0D 002A5 PUSHL R11 : 
0000G CF 01 FB 002A7 CALLS “i, ANL $F ORMAT_ERROR ‘ 
53 94 O02AC CLRB ss FIT_OK : 
1F 53 £9 OO2AE 31$:  BLBC  FIT~OK, 32% > 0801 
7E 00 BE 3C 00281 MOVZ2WL @SCANP, =(SP) : 0802 
000000006 8F dD 00285 PUSHL  #ANLOBJ$_OBJENV = 
02 DD 00288 PUSHL #2 : 
7E D4 00280 CLRL. = (SP) ; 
0000G CF 04 FB Bose, CALLS #4, ANLSFORMAT_LINE é 
E 00 BE 3C 002C4 MOVZWL @SCANP, -(SP) > 0803 
| 0000v CF 01 FB 002C8 CALLS #1, ANLSOBJECT_ENV_REF : 
| 6E 02 CO 002CD ADDL2 #2. SCANP + 0804 
06 58 £9 00200 32$:  BLBC SYMBOL_SPEC, 33$ ; 0811 
| 03 57 E8 00203 BLBS §§ SYMBOL ~DEF, 33$ : 
00D7 31 00206 BRW 43$ ; 
01 55 91 00209 338: CMPB RS, #1 + 0817 
OA 13 0020¢ BEQL 6-348 ; 
02 55 91 0020 (MPR RS, #2 : 0818 
05 13 00261 BEQL A$ ; 
03 33 91 00263 CMPB RS, #3 > 0819 
8 12 00266 BNEQ  36$ : 
12 53 €9 00268 34$:  BLBC_ FIT_OK, 35$ > 0820 
50 6E 01 ¢1 00268 ADDL3 #1, ~SCANP, RO ; 
54 50 01 OO2ZEF CMPL ~=s_ RO. RG ; 
09 1B 002F2 BLEQU 35$ ; 
5B DD 0024 PUSHL R11 ; 
0000G CF 01 FB O002F6 CALLS #1 ANL$F ORMAT_ERROR 5 
53 94 002FB CLRB FAT : 
6C 53 9 OO2FD 35$: BLBC FIT OK, 398 > 0821 
7E 00 BE A 00300 MOVZBL a@SCANP, =(SP) : 0822 
000000006 8F DD 00304 PUSHL #ANLOBJ$_OBUPSECT ; 
02 DD 0050, PUSHL # ; 
7E 04 0030¢ CLRL. = (SP) ; 
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7022000 ANLSOBJECT_GSD = Analyze GSD Object Records langep= 1984 $7 :35:28 LANALYZ-SRe OBJGSD.B32; 
00006 CF 04 FB 00 CALLS #4, ANLSFORMAT_LINE 
tt 00 BE 9a 00 5 MOVZBL @SCANP, =(SP) ~ 
0000v CF FB 0031 CALLS #1, ANLSOBJECT_PSECT_REF 
5 D6 0031¢ INCL CANP 
11 0031 BRB 8$ 
61 3 €9 00320 368: BLBC_ FIT_OK, 408 
50 gE 92 C1 00 ADDL3 #2,~SCANP, RO 
4 D1 00 CMPL RG 
09 1B 0032 BLedGu 37§ 
B DD 0032C¢ PUSHL R11 
00006 CF 01 FB 00 CALLS #1, ANLSFORMAT_ERROR 
33 94 90 CLRB Ss FL T_OK 
4C £9 0335 378: BLBC FIT“OK, 40$ 
7E 00 BE 3¢ 003 MOVZWL a@SCANP, (SP) 
000000006 8F dD 0033¢c PUSHL M#ANLOBJ$_OBJPSECT 
02 DD 00342 PUSHL #2 
7E D4 00344 CLRL. = = (SP) 
00006 CF 04 FB 00346 CALLS #4, ANLSFORMAT_LINE 
7€ 00 BE 3C 00348 MOVZWL @SCANP, <(SP) 
0000v CF 01 FB O034F CALLS #1, ANLSOBJECT_PSECT_REF 
6E 9¢ CO 00354 ADDL2 #2, SCANP 
; 2A 53 €9 00357 38$:  BLBC_ FIT_OK, 40$ 
50 6£ 04 C1 0035 ADDL3 #4,~SCANP, RO 
54 50 D1 0035€ CMPL = RO, RG 
09 18 00361 BLEQU 39$ 
5B DD 00363 PUSHL R11 
0000G CF 01 £B 00365 CALLS #1 ANL $F ORMAT_ERROR 
53 94 0036A CLRB Ss FAL TT_OK 
15 53 £9 0036C 398: BLBC FIT“OK, 40$ 
00 BE DD 0036F PUSHL a@SCANP 
000000006 8F DD 00372 PUSHL #ANLOBJ$_OBJVALUE 
02 0D 00378 PUSHL #2 
7E D4 0037A CLRL. = = (SP) 
00006 CF 04 FB 0037C CALLS #4, ANLSFORMAT_LINE 
6E 04 CO 00381 ADDL2 #4. SCANP 
03 38 E9 00384 40$: BLBC SYMBOL_SPEC, 41$ 
26 57 £8 00387 BLBS § SYMBOL~DEF, 43$ 
62 53 £9 0038A 41$:  BLBC_ FIT_OK> 45$ 
50 6E 02 €1 0038 ADDL3 #2,~SCANP, RO 
54 50 D1 00391 CMPL RO, RG 
09 1B 00394 BLEQU 42$ 
5b DD 00396 PUSHL R11 
0000G CF 01 FB 00398 CALLS #1, ANLSFORMAT_ERROR 
33 94 00390 CLRB Ss FL T_OK 
79 53 £9 0039F 428: BLBC =: FIIT“OK, 46$ 
7E 00 BE 3C 003A2 MOVZ2WL a@SCANP, -(SP) 
02 DD 003A6 PUSHL @# 
00006 CF 02 FB 003A8 CALLS ae. ANL $F ORMAT_MASK 
é€ 0¢ CO 003AD ADDL2 #2. SCANP 
68 53 £9 00380 43$:  BLBC_ FIT_OK, 468 
50 6£ 01 C1 00385 ADDL3 #1,7~SCANP, RO 
54 50 D1 00387 PL RG 
09 1B 0036A BLEGU 44$ 
5B DD 003BC PUSHL R11 
00006 CF 01 FB 00 386 CALLS #1, ANLSFORMAT_ERROR 
53 94 003 CLRB FL f_OK 
53 53 £9 0035 448 BLBC FITTOK, 46% 
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) vive ANLSOBJECT_GSD = Analyze GSD Object Records 1a-Sep-1984 $7 38:38 ANALYZ.SRCJOBJGSD.832; — (35 
06 «AE 00 E 9A 0038 MOVZBL @SCANP, WORK DSC : 
08 AE 6€ 1 ¢1 003C ADDL #1, SCANP, WORK_DSC+4 ; 
46 3 §? 030 BLBC —=_—«~FLIf_OK, 468 : 
50 06 AE 3C 0030 MOVZWL WORR DSC, RO : 
3 0 8 0309 DIVL #8, R : 
0 of CO 0030¢ ADDL SCANP, RO : 
D6 09 DF INCL RO : 
54 50 D1 00361 CMPL RO RS : 
09 1B 0034 LeQu = 45$ : 
B oD 00 £6 USHL R11 : 
00006 CF 01 FB OO3E CALLS #1, ANLSFORMAT_ERROR : 
33 94 60360 CLRB FIT_OK : 
29 E9 OO3SEF 45%: BLBC FIT"OK, 468 ; 0863 
0 AE 0 Bore PUSHL WORR_DSC+4 3; 0864 
7E 0 AE 3C 003F MOVZWL WORK™DSC, -(SP) 3 
00000000G 8F DD 003F9 PUSHL M#ANLOBJ$_OBJSYMBOL 3 
92 DD OO3FF PUSHL #2 : 
E D4 00401 CLRL -(SP) : 
00006 CF 05 FB 00403 CALLS #5, ANLSFORMAT_LINE : 
1F DD 00408 PUSHL #31 : 0865 
08 AE 9F O040A PUSHAB WORK_DSC : 
0000G CF 02 FB 00400 CALLS #2, ANLSCHECK_SYMBOL : 
50 04 AE 3C 00412 MOVZWL WORK os : 0866 
6E 08 BESO 9E 00416 MOVAB a@WORR_DSC+4(RO], SCANP : 
03 55 91 0041B 46$: CMPB RS, #3 3 0872 
OA 13 OOGIE BEQL 47 : 
06 55 91 00420 CMPB RS, #6 : 0873 
05 13 00423 BEQL 47$ : 
08 55 91 00425 CMPB R5, #11 : 0874 
75 12 00428 BNEQ : 
; 72 53 £9 0042A 47S: BLBC FIT_OK, 52% ; 0882 
50 6 02 (1 90420 ADDL3 #2, SCANP, RO : 
54 50 D1 00431 CMPL RO, R4 : 
| 09 1B 00434 BLEGU 48$ ; 
5B DD 004 36 PUSHL R11 : 
| 00006 CF 01 FB 00438 CALLS #1, ANLSFORMAT_ERROR : 
| 53 94 0043D CLRB FIT_OK : 
5D 53 £9 O043F 48S: BLAC FIT"OK, 52$ ; 0883 
54 6E D0 00442 MOVL SCANP, R4 ; 0884 
7E 01 AS 9A 00445 MOV7BL 1(R4), =(SP) : 
7E 64 9A 00449 MOVZBL (R4), =(SP) ; 
000000006 8F DD 0044¢ PUSHL #ANLOBJ$_OBJPROARGCOUNT ; 
02 DD 00452 PUSHL #2 : 
7E D4 00454 CLRL -(SP) : 
00006 CF 05 FB 00456 CALLS #5, ANLSFORMAT_LINE ; 
01 Ad 64 91 00458 CMPB (Ro), 1(R4) ; 0885 
0B 18 0045F BLEQU 49% : 
000000006 8F DD 00461 PUSHL #ANLOBJ$_OBJPROMINMAX : 0886 
00006 CF 01 FB 00467 CALLS #1, ANL$FORMAT_ERROR : 
55 01 Ad 9A 0046C 49$:  MOVZBL 1(R4), MAX_ARGS ; 0887 
6E 02 CO 00470 ADDL2 #2, SCANP ; 0888 
54 01 DO 004 MOVL #) : 0893 
e2 11 00476 BRB 51$ : 
4 DD 00478 50S: PUSHL | > 0894 
000000006 8F DD 0047A PUSHL #ANLOBJ$_OBJPROARGNUM : 
02 DD 00480 PUSHL @ ; 
7E D4 00482 CLAL -(SP) : 
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rhe te ANLSOBJECT_GSD = Analyze GSD Object Records 14 ~3ep-1986 97:33:39 ANALYZ.SRC JOBJGSD.B32; ae (33 
00006 CF of 484 CALLS #4, ANLSFORMAT_LINE : 
* bp 489 PUSHL 6 + 0895 
06 AE OF 004 PUSHAB SCANP : 
OO0OV CF pe Chers ; ANL SOBJECT LARGUMENT_DSC : 
; 30 $6 $098 TNC Ro; F o 0893 
55 a D1 0049A 518 ¢ I MAX_ARGS ; 
rns Wee ses, Oe 0678 
38 sg 9 O4ne 3g: BLBC = FIIT_OK, 55$ : 0909 
50 03 ag f Be MOVAB 3(R2), RO : 
54 50 D1 004A9 CMPL RO, RO : 
09 18 004AC BiEGU 548 : 
5B DD O04AE PUSHL R11 : 
00006 CF 01 FB 00480 CALLS #1, ANLSFORMAT_ERROR : 
53 94 00485 CLRB Ss FL T_OK : 
26 53 9 00487 54$: LBC FIT“OK, 55$ : 0910 
0000" CF 9F OO4BA PUSHAB ENTITY. FLAGS _DEF 3 0911 
7E 1 A2 3C 004BE MOVZWL 1(R2),7=(SP) : 
000000006 8F dD 004C PUSHL #ANLOBJS_ OBJGSDIDCFLAGS ; 
02 OD 004¢ PUSHL #2 : 
00006 CF 04 FB OO4CA CALLS #4 ANL SF ORMAT FLAGS : 
0000" CF 9F OO4CF PUSHAB ENTITY F AGS _DEF + 0912 
50 01 A2 3¢C 00403 MOVZWL 1(R2), “RO ; 
7E 50 3— CB 00407 BICL3 #62, RO, -(SP) : 
00006 CF 02 FB 004DB CALLS #2, ANLSCHECK_FLAGS : 
50 01 = A2 01 00 EF OO4EO 55S: EXT2vV. #0. #1, 1(R2)7 RO : 0918 
55 50 90 00466 MOVB RO. BINARY : 
3E 50 £9 00469 BLBC ~—E.—s@wRRO;. 61 : 
57 01 A 02 01 EF OOsEC EXTZ2V #1. #2, 1(R2), R7 : 0919 
0 00 57 CF 004F2 CASEL R7, #0 : 

0023 0023 000€ 0008 004F6 568: <WORD 57$-56$,- : 
58$-56$.- ; 
60$-56$.- : 
60$-56$ : 

0000" CF 9F OO4FE 57$: PUSHAB P.AAR : 0920 
04 11 00502 BRB 59$ : 
0000" CF 9F 00504 58$: PUSHAB P.AAS : 0921 
000000006 SF DD 00508 59$: PUSHL #ANLOBJ$_OBJGSDIDCMATCH ; 
02 DD 0050 PUSHL #2 ; 
7E D4 00510 CLRL. = (SP) ; 
00006 CF 04 FB 0051¢ CALLS #4, ANLSFORMAT_LINE ; 
11. 11 0051 BRB 1 : 
7E 01 A2 01 00 EF 00519 60S: EXTZv #0, (R2), =(SP + 0922 
00000000G 8F DD OOSIF PUSHL pain 0835. 0840 jDCRATCH 3 
0000G CF b FB 00525 CALLS #2, ANLSFORMAT_ERROR : 
7€ 01 =A2 03 03 EF 003¢A 61$: EXT2vV #3. #3, 1tRD). “=(SP) : 0927 
02 DD 00530 PUSHL ‘ : 
00006 CF 0¢ fB 009 3¢ CALLS ANL Sf ORMAT _SEVERITY ; 
55 £9 05 BLBC Fit. > 0931 
50 04 A2 9SE 0053A MOVAB 4(R2 = : 
54 50 D1 0053 CMPL , ; 
09 1B 00541 BLEGU bof : 
5B DD 0543 PUSHL efi ; 
0000G CF 01 FB 0054 CALLS #1, ANLSFORMAT_ERROR : 
53 94 0054A CLRB Ss FL f_OK ; 
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y04—000 ANLSOBJECT_GSD = Analyze GSD Object Records 14-Sep-19 4 $7583: 28 LANALYZ. SRE 08/GS0.832; ae (3 
40 53 £9 0054C 628 BLBC =_—sFIT_OK, 64$ : 
06 AE 93 A H 054F MOVZBL 3(R2), WORK _ : 
08 ae ac é 43 0554 MOVAB 4(R2), WORK-DSC+4 : 
5 5 0999 BLBC ~=-_—« FIT_OK, 64$ : 
0 06 AE 3¢ 95 C MOVZWL WORR DSC, RO : 
0 0 6 269 Divi2 #48 4, : 
0 01 A04 056 MOV 1(RO)CR2], RO : 
4 50 D1 00568 CMPL R9 R4 : 
99 1B 00568 BLEGU 638 : 
B DD 00560 PUSHL R11 r 
00006 CF 01 FB 005¢F CALLS #1, ANLSFORMAT_ERROR : 
33 94 005 4 CLRB 3s FL OK : 
16 E9 00576 63$: BLBC = FIIT“OK, 64$ t 0932 
08 AE bo 0579 PUSHL  WORR_DSC+4 > 0933 
7E 08 AE 3C 0057¢ MOVZWL WORK“DSC, -(SP) : 
00000000G 8F 6D 00580 PUSHL M#ANLOBJ$_OBJGSDIDCENT : 
02 DD 00586 PUSHL #2 : 
43 D4 00588 CLRL. = (SP) : 
0000G CF 05 FB OO5BA CALLS #5, ANLSFORMAT_LINE : 
50 04 AE 3C 0058F 64$: MOVZWL WORK : > 0934 
6E 08 BESO 9E 00593 MOVAB aWORR DSC+4CROJ, SCANP : 
6F 53 £9 00598 BLBC FIT_OR, 68$ > 0939 
50 6E 01 ¢1 00598 ADDL3 #1,~SCANP, RO F 
54 50 D1 9059F CMPL = RO, RG : 
09 1B 005a2 BLEQU $ : 
5B DD 005A4 PUSHL R11 : 
0000G CF 01 FB 00546 CALLS #1, ANLSFORMAT_ERROR : 
53 94 005AB CLRB Ss FL T_OK : 
SA 53 E9 OO5AD 65$: BLBC FIT“OK, 68$ ; 
04 AE 00 BE 9a 00580 MOVZBL @SCANP. WORK _DSC : 
08 AE 6E 01 ¢1 00585 ADDL3 #1, SCANP, WORK_DSC+4 : 
4D 53 €9 O05BA BLBC ~=-_—«sFLLT_OK, 6&$ : 
50 06 AE 3C 00580 MOVZWL WORR DSC, RO ; 
50 08 (6 0051 DIvL2 #8, : 
50 6€ CO 005C4 ADDL2 SCANP, RO : 
50 D6 005C7 INCL RO : 
54 50 D1 005¢9 CMPL =e RO, - RG : 
09 18 005¢C BLEQU 66$ ; 
5B DD O0SCE PUSHL R11 ; 
0000G CF 01 FB 00500 CALLS #1 ANL $F ORMAT_ERROR ‘ 
53 94 00505 CLRB ss FIIT_OK : 
30 53 £9 00507 668: BLBC FIT"OK, 68$ + 0940 
17 55 €9 005DA BLBC BINARY, 67$ > 0941 
50 6— DO 00500 MOVL SCANP, RO > 0942 
01 AO DD 0050 PUSHL  1(RO) : 
000000006 8F DD 00563 PUSHL #ANLOBJ$_OBJGSDIDCVALB ; 
02 DD 00569 PUSHL #2 : 
7E D4 005EB CLRL. = (SP) : 
00006 CF 04 FB 005ED CALLS #4, ANLSFORMAT_LINE F 
16 11 005F2 BRB rT 3 F 
08 AE DD 005F4 67$: PUSHL WORK_DSC+4 + 0944 
7E 08 AE 3C 005F7 MOVZWL WORK7DSC, -(SP) 3 
000000006 8F DD B0r8 PUSHL M#ANLOBJ$_OBJGSDIDCVALA I 
02 DD 00601 PUSHL #2 : 
7E D4 00603 CLRL -(SP) ; 
00006 CF 05 FB 00605 CALLS #5, ANLSFORMAT_LINE 3 
50 04 AE 3C 0060A 68$:  MOV2WL WORK_DSC, RO : 0945 
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$f 08 BEd 3 00606 MOVAB awork K pDSCs4CROI, SC ANP ; 
53 €9 0061 BLBC fit + 0949 
50 ¢¢ gi C1 00616 ADDL3 “CANE. RO : 
4 0 01 O061A CMPL 4 RS : 
09 1B 0061D BLEGU 69 7 : 
B DD O06IF PUSHL : 
00006 CF 01 FB 00621 CALLS H ANL $F ORMAT_ERROR : 
; 94 006 $ CLABCéF «AL : 
40 7 £9 0628 69$:  BLBC  FIT"OK, 71$ : 
04 AE 00 BE 9A 00628 MOVZBL aSCRNP. WORK _DSC : 
08 AE of 01 C1 006 ADDL3 #1, SCANP, WORK_DSC+4 : 
53 9 006 5 BLBC if OK is. : 
50 04 AE 3¢ 006 MOVZWL UORR p§c, RO : 
50 08 (6 0063C DIVL2. #8, R : 
50 6E CO 0063F ADDL2 SCANP, RO : 
50 D6 00642 INCL RO : 
54 50 D1 00644 CMPL =e RO, - RG : 
09 1B 00647 BLEGU 70$ : 
5B DD 00649 PUSHL Rit : 
0000G CF 01 FB 00648 CALLS ANL $F ORMAT_E RROR g 
53 94 00650 CLRB 4 K : 
16 53 £9 00652 708: BLBC ~=_—sFIT“OK, 71$ + 0950 
08 AE DD 0065 PUSHL  WORR aDSC+4 + 0951 
7E 08 AE 3C 00658 MOVZWL WORK DSC, : 
00000000G 8F DD 0065C PUSHL  M#ANLOBJS~ *oBJGSDIDCOBJ 3 
02 DD 00662 PUSHL #2 : 
7E D4 00664 CLRL. = (SP) : 
00006 CF 05 FB 00666 CALLS rh ANL $F ORMAT_LINE : 
0008 31 00668 71$: BRW 7 : 0955 
FA 53 E9 0066E 72$: BLBC ~—s@F:IT_OK, asi’ > 0962 
50 03 A2 SE 00671 MOVAB 3(R R2) ; 
54 50 D1 00675 CMPL he : 
09 18 00678 BLEQU nos : 
5B DD 0067A PUSHL R11 : 
00006 CF 01 FB 0067C CALLS #1, ANLSFORMAT_ERROR : 
53 94 00681 CLRB = FL T_OK : 
E5 53 £9 00683 738: BLBC FIT~OK, 71$ > 0963 
0000" CF D6 00686 INCL HIGREST_DEF_ENV + 0964 
0000" CF 9F 0068A PUSHAB ENV FLAGS DEF : 0965 
7E 01 A2 3C O068E MOVZWL 1(R2), -(SP) : 
000000006 8Ff dD 00692 PUSHL #ANLOBJS_ SBIGSDENVELAGS : 
02 DD 00698 PUSHL #2 ; 
00006 CF 04 FB O069A CALLS #4, ANLSFORMAT_FLAGS : 
0000" CF 9F 0069F PUSHAB ENV FLAGS _DEF > 0966 
7E 01 A2 3C 006A3 MOVZWL -(SP) : 
00006 CF 0¢ FB O06A7 CALLS #2, ANLSCHECK. FLAGS : 
BC 53 £9 O06AC BLBC FIT OK. 71 : 0972 
50 05 A2 YE OO6AF MOVAB 5(R2) 3 
54 50 D1 00683 CMPL RO at * : 
09 1B 00686 BLEGU 74$ ; 
5B DD 00688 PUSHL Rit : 
00006 CF 01 FB OO06BA CALLS ANL $F ORMAT_ERROR : 
53 94 O06BF CLRB rif OK : 
A? 53 £9 006C1 74%: BLBC FIT™ > 0973 
0000" CF bo 00664 PUSHL MiGReSt ter ENV + 0974 
7€ A2 3C 006C8 MOVZWL 3(R2), =(SP : 
000000006 8F dD 006CC PUSHL  #ANLOBJ$_OBJGSDENVPAR : 


JG OBJGSD = Anal ze GSD Records 3.83 -1984 23:38:5 AX-11 Bliss-32 V4.0-74 P 8 
; 702000 ANLSCBIECT .GSD = Analyze GSD Object Records 12780 8- 1 8e $7583: 28 ANALYZ.SRCJOBJGSD.B32; sty (3 


2 0D 00602 PUSHL oF : 

3 DS 00604 a P) : 

00006 cf 05 §B 006D6 CALLS ANL SF ORMAT LINE : 
E 03 Ae 3C 00608 MOVZWL sia + 0975 

0000v cf 9 FB OO06DF CALLS niu $08ECT ENV_REF : 
F 9 06E4 BLBC Fito OK, + 0980 

50 06 A2 9E 006E7 MOVAB ao” : 

54 50 D1 006€B CMPL So" he : 

09 18 O06EE Biedgu 75$ : 

B DD 006F PUSHL 11 : 

0000G CF 01 FB Boers CALLS #1, ANLSFORMAT ERROR : 

33 94 O06F CLRB 3s F:LT_OK : 

4A 5 9 06F9 75$: LBC FIT"OK, 78% : 

06 AE 0S A A ogre MOVZBL 5(R2), WORK_DSC 5 

08 AE 06 A2 9E 00701 MOVAB 6(R2), WORK-DSC+4 : 

3D §, 5 00706 LBC FIT OK, 78$ : 

50 06 AE 3C 00709 MOVZWL WORR DSC, RO : 

50 08 C6 0070D DIviL2 #8, RO 3 

50 01 A042 9E 00710 V 1(RO)CR2], RO : 

54 560 D1 00715 CMPL RO, R4 : 

09 18 00718 BLEQU 77% : 

5B DD OO71A 768: PUSHL R11 : 

00006 CF 01 FB OO7IC CALLS #1, ANLSFORMAT_ERROR : 

53 94 00721 CLRB Ss FLL T_OK : 
20 53 €9 00723 77S: BLBC FIT"OK, 78S : 0981 
08 AE DD 00726 PUSHL WORR_DSC+4 3: 0982 

7E 08 AE 3C 00729 MOVZWL WORK DSC, -(SP) : 

00000000G 3F ODD gore PUSHL #ANLOBIS_ OBJ SYMBOL ; 

02 DD 00733 PUSHL #e : 

7E D4 00735 CLRL -(SP) : 

00006 CF 05 FB 00737 CALLS #5, ANLSFORMAT_LINE : 
1F DD 0073C¢ PUSHL at + 0983 

08 AE 9F 0073E PUSHAB : 

0000G CF 02 FB 00741 CALLS " TRNESCHECK _SYMBOL : 
50 04 AE 3C 00746 788: MOVZ2WL WORK DS + 0988 

at 08 BESO 9E O074A MOVAB SUORR _DSC+4CR0], SCANP : 
F8D8 31 0074F BRW 1$ : 0657 
04 00752 RET : 0997 


3 Routine Size: 1875 bytes, Routine Base: $CODE$S + 0000 


14 
thet OBJGSD - ap HED GSD Records 18-Sep-19 " 43:28:29 AX-11 Bliss-32 V4.0-74 nee 


ANLSOBJECT_ARGUMENT_DSC = Analyze Argument Desc 14-Sep-19 ANALYZ.SRCJOBJGSD.B32; 
3 378 0999 : sbttl "ANLSOBJECT_ARGUMENT_DSC = Analyze Argument Descriptors’ 
; \o4 
; 574 000 1 ! Functional Description: 
s >f5 1001 1! his Cows tae ene reee argument descriptors, which appear in GSD 
s 3f6 1006 1! records and in TIR commands. 
“Bap fe 1005 1! 
; ahs 1004 1 ! Formal Parameters: 
; S79 1005 1! indent_level Level at which to indent Lines. 
; 580 1006 1! scanp_address Address of argument descriptor block pointer. We 
3; 96) 1007 1! update it to point past the block. — 
; 28s isos } the_record Address of descriptor of record containing block. 
; «584 1010 1°! Implicit Inputs: 
; 585 1011 1! global data 
3 (586 lore 1 i es 
iz $87 101 1! Implicit Outputs: 
3 «388 1014 1! global data 
is 389 1015 1! 
; 999 1016 1 ! Returned Value: : ; 
; 591 1017 1! True if descriptor fit in record; false otherwise. 
3 392 ote te. 
iz 393 1019 1°! Side Effects: 
3 «594 1020 1! 
; 799 1021 1 !-- 
; 3% 1956 1 
is 397 1023 1 
3 43 10se $ global routine anl$object_argument_dsc(indent_level,scanp_address,the_record) = begin 
; 600 1026 2 bind 
3 601 1027 2 scanp = .scanp_address: ref block(,bytel, 
3 602 1028 2 record_dsc = .the_record: descriptor; 
(3 603 1029 2 
(3 604 1030 2 own ; ee 
'3 6605 1031 2 passing_mechanism_table: vector(4,long] initial ( 
(3; 606 1032 2 uplit byte(Zascic 'UNKNOWN'), 
i; 607 1033 2 uplit byte(Zascic ‘VALUE"), 
; 608 1034 2 uplit byte(Zascic "REF') 
; 609 1035 2 uplit byte(Z%ascic "DESC'S); 
; 610 1036 2 
js 611 1037 2 local : 
ls 612 1038 2 fit_ok: byte, — 
is 615 1039 2 work_dsc: descriptor; 
3; 614 1040 2 
; 615 1041 2 
; 616 1042 2 ! The argument descriptor begins with a validation control byte containing 
(3 17 1043 2 ! the passing mechanism. Print it and check it. 
; 618 1044 2 
s 619 1045 ¢ fit_ok = true; 
; 620 1046 2 : 3 
is 621 1047 2 ensure_field fit(0,0,8,0,record_dsc); 
3 os¢ 1048 3 if .fif_ok then ( , : é : 
: 625 1049 3 anl$format_Line(0,.indent_level,anlobj$_obj fadpassmech, .passing_mechanism_table[.scanp(0,0,2,0])]); 
3 624 1050 if .scanpl0,2,6,0) nequ 0 then. : 
: 6¢9 1051 : anl $format_error(anlobj$_obj fadbadavc); 
i 626 1026 increment (scanp); 
4: O¢f 10535 2 3% 
; 628 1054 2 


~~ 


1 
OBJGSD = Analyze GSD Records 1Sesep 1984 23:38:5 AX-11 Bliss-32 V4.0-742 Page 30 
ANLSOBJECT_ARGUMENT_DSC = Analyze Argument Desc 14- “Sept 984 $7 :83:28 ANALYZ.SRCJOBJGSD.B32;1 . (105 
1055 ensure pests eters. 0,8,0,record_dsc,work_dsc); 
1926 5 if .fifLok then 
105 5 “if mare “ascClen nequ 0 then 
1058 $ anl$format_error(anlobj$ Mrs 4 Hes restate 
1059 3 scanp = .work_dsc(ptr] + .work_d&cL 
1060 M3 
1061 § 
1806 return .fit_ok 
1063 2 
1064 1 end; 


-PSECT SPLITS,NOWRT ,NOEXE,2 


SE 57 4F 4E 4B 4E 55 O07 OOOBC P.AAT: .ASCII <7>\UNKNOWN\ 3 
45 55 4C 41 56 05 Q00C4 P.AAU: .ASCII <5>\VALUE\ : 

46 45 52 03 OOOCA P.AAV: .ASCII <3>\REF\ 3 

43 535 45 44 04 OOOCE P.AAW: .ASCII <4>\DESC\ : 


-PSECT SOWNS,NOEXE,2 


00000000" 00000000* 00000000" 00000000" OO00A0 PASSING AG CHANI SA TABLE : 
ADDRESS P.AAT, P.AAU, P.AAV, P. AAW : 


-PSECT S$CODE$,NOWRT,2 


QOFC 00000 JENTRY ANLSQBJECT_ ARGUMENT_DSC, Save R2,R3,R4,R5,= ; 1024 
57 00006 CF 9E 00002 MOVAB ANLSFORMAT_ERROR, R7 : 
56 00000000G 8F D0 00007 MOVL #ANLOBJS_ FIELDFIT, R6 3 
5E 08 C2 O000E SUBL2 #8, S ; 
53 08 AC DO 00011 MOVL SCANP_ADDRESS, R3 : 1027 
52 OC AC DO 00015 MOVL § THE_RECORD, R2 : 1028 
55 01 90 00019 MOVB #1, FIT_OK > 1045 
6E 55 €9 0001C BLBC FIT_OK,~4$ + 1047 
51 63 01 C1 O001F ADDL3 #1,7(R8), R1 : 
50 62 3C 00023 MOVZWL (R2), RO : 
50 04 A2 CO 00026 ADDL2 4(R2), RO ; 
50 51 D1 0002A CMPL~=seR1, RO ; 
07 1B 00020 BLEGU 1$ : 
56 DD O00¢F PUSHL R6 : 
67 01 FB 00031 CALLS #1, ANLSFORMAT_ERROR : 
55 94 00034 CLRB ss FILT_OK : 
77 55 £9 00036 18: BLBC FIT"OK, 5$ + 1048 
54 63 DO 00039 MOVL (R33, RG + 1049 
64 02 00 EF 0003C EXTZV #0, W. (R4), RO ; 
0000'CF40 DD 00041 PUSHL PASSING MECHANISM_TABLECRO] : 
000000006 er DD 00046 PUSHL #ANLOBJS_OBJFADPASSMECH 3 
04 DD 0004C PUSHL  INDENT_LEVEL ‘= 
mt D4 O004F CLRL -(SP) ; 
00006 CF Of FB 00051 CALLS #4 ut $F ORMAT_LINE : 
FC oF 64 93 00056 BITB (RE), #252 : 1050 
09 13 0005A BEQL ; 
000000006 8F odd 0005¢ PUSHL #ANLOBJ$_OBJF ADBADAVC : 1051 


eS 


14 
et JGSD = Analyze GSD Records 13.5 Sep-1984 $3! 33:24 Ax-11 Oi ieee -32 v4. ore Page 31 
v0G= a OBJECT_ARGUMENT_DSC = Analyze Argument Desc 1a=8ep-1 984 11:52:5 ANALY 2. Src} OBJGSD.B32;1 (10) 
67 01 FB 4644 CALLS #1 ANLSFORMAT_ERROR : 
$3 D6 9906 2$ INCL (R$) + 1052 
5E 5 €9 00067 BLBC FIT_OK, 7$ + 1055 
51 ‘ 01 cI 0006A ADDL3 #1,7(R3), R1 : 
50 62 C 0006E MOVZWL (R2), RO : 
50 06 Ao CO 90071 ADDL2 4(R25, RO : 
50 51 D1 00075 CMPL eT, -RO : 
07 18 00078 BLEQU 3$ : 
56 DD 0007A PUSHL R6 ; 
67 01 FB 0007C¢ CALLS #1, ANLSFORMAT_ERROR : 
55 94 0007F CLRB ss FL f_OK : 
44 55 9 00081 3$: BLBC FIT ak: 7$ : 
6E 00 B83 9A 00084 MOVZBL @0(R3). WORK_DSC : 
04 AE 63 01 C1 00088 ADDL #1, (R$), WORK_DSC+4 : 
38 55 £9 0008D 4$: BLBC FIT_OK, 7$ ; 
50 6— 3¢C 00090 MOVZWL WORK DSC, RO : 
50 08 (C6 00093 DIvL2. #8, RO : 
50 63 CO 00096 ADDL2 (R$), RO : 
51 01 Ad 9E 00099 MOVAB 1(ROS, R1 : 
50 62 3C 0009 MOVZWL (R2), RO : 
50 04 A2 CO 000A0 ADDL 4(R2), RO F 
50 51 D1 OO0A4 CMPL =s R1, _ RO : 
07 1B 000A7 BLEQU 5$ ; 
56 DD 000A9 PUSHL R6 : 
67 01 FB QOOAB CALLS #1, ANLSFORMAT_ERROR ; 
55 94 OOOAE CLRBséF‘AT -OK ; 
15 55 €9 00080 5$: BLBC FIT~OK, 7$ : 1056 
6— 85 00083 TSTW WORR nit : 1057 
09 13 00085 BEQL 6$ : 
00000000G 8F ODD 00087 PUSHL gg og OBJF ADBADRBC : 1058 
67 01 8B 000BD CALLS #1, a shee MAT_ERROR : 
50 6E 3C 900CO 6$: MOVZWL WORK + 1059 
63 04 BESO 9E 000C3 MOVAB SUORR BS e+acROI, (R3) : 
50 55 9A 000CB 7$: MOVZBL FIT_OR, RO : 1062 
04 000CB RET + 1064 


13 Routine Size: 204 bytes, Routine Base: $CODE$ + 0753 
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ANLSOBJECT_PSECT REF - Mark Psect Reference 14- at 97:85:29 ANALYZ.SRC (308160 B32: 1 29° 97) 


196? yeuess "ANLSOBJECT_PSECT_REF = Mark Psect Reference’ 
1067 Functional Description: 
iRe his routine is called to mark a psect reference in the psect 


reference bitvector. By Mea grit every psect that is referenced 
we can check whether undefined psects are ever referenced. 


Formal Parameters: 
psect_number The number of the psect that was referenced. 


' Implicit Inputs: 
global data 


: setae | Outputs: 
global data 


' Returned Value: 
none 


i 
i 
' 
i 
i 
i 
i 
' 
i 
' 
i 
i 
' 
i 
i 
‘ 
! 
kk Side Effects: 

ie 

global routine anl$object_psect_ref(psect_number): novalue = begin 
local 


Status: long; 


! We begin by checking to see whether or not a psect reference bitvector 
i has been allocated. If not, we allocate it and clear it. 


NAME WN SO OONAUE WR (OO OOWVAUS WN OO 


if ommed ref_bits os 

status = Lib$get_ cyn( iret (65536/8) »psect_ref_bits); 
check (.status,.Statu 

ChSfill tax 00", 6535078. .psect. ref_bits); 


! Now we can set the psect bit and remember the highest referenced psect. 


peest, ref_bits(€.psect_number] = true; 
ighest_réf_psect = max(.psect_ number,. highest_ref_psect); 


return; 


ee ee ee tt ee ee ee a ee a ee ed ed ed 

tt tt 4 BOO O OOOO OVOOCOCOOOCOCOCOVCOOBOCCOCCOCOCOCOoO 

—PINPININPOPINOPIPIPYNIWAIANIAPUPNPODPOPONNNY 2 9 tt ot 
Me 


== [DOOD OODOCOCOCSC COO OOO 0 OO OWDWDWDWDOWDWOOON NNN NNN 


—OVOONA UE wr-O OW 


end; 


007¢ 00000 .ENTRY ANLSOBJECT PSECT att. Save R2.R3.R4.R5,.R6  ; 1089 
56 0000' CF 9€ 00002 MOVAB PSECT_REF_BITS : 
5E 04 C2 00007 SUBL2 #4, S ; 
66 05 OOO0A TSTL pséct _REF _BITS : 1098 
27 12 0000¢ BNEQ ; 


No 


F 14 
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7022080 ANL OBJECT. PSECT REF - Mark Psect Reference 12-368: 38 $7583: 39 ANALYZ $RE10BI6¢0 03244 “ ad 
6 oD PUSHL R : 1099 

04 AE 2090 F Be 5 %f MOVZWL $8192, 4(SP) : 

4 AE OF 18 PUSHAB 4(SP) : 

000000006 09 FB 0 1 CALLS #2, L1BSGET_vM : 
0 2 0 9 BLBS = STATUS, 1 : 1100 

0 0D 000 PUSHL STATUS : 

000000006 00 01 FB 00025 CALLS #1, LIBSSIGNAL : 
2000 =s«&F 00 6E£ “ 00 2c 900 ¢ 1$: movcS #0, (SP), #0, #8192, aPSECT_REF_BITS + 1101 
00 00 86 04 Ac £2 00035 a8: BBSS § PSECT_NUMBER, @PSECT_REF_BITS, 3$ + 1106 
50 04 AC DO 00038 3$: MOVL PSECT-NUMBER, R : 1107 

FC AG 50 D1 0003F CMPL RO, HIGHEST_REF_PSECT : 

04 18 00043 BGEG © 4$ : 

50 FC =6AB 00 00045 MOVL § HIGHEST_REF_PSECT, RO : 

FC oA 50 DO 00049 4s: MOVL RO, HIGRESTIREF_PSECT : 
04 00040 RET + 1111 


3 Routine Size: 78 bytes, Routine Base: S$CODES + OBIF 
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aN 
~m 
DONA OM EWR  O OONAUE wr 


~“ 
WwrN—OooO 
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a a ee re eee ee) 


DPAX®BAARA AAD Hanno BEE BEE EE BAAN NANIWNINIAIPPOPOPONONIPINNPYD 2 2 SS 
ONO NE WR 0 OD NAM EWWN HO OODNA VUE WN $0 OONOU EWN 0 OO NOUFWN -OOONOUE wr a 


Be Be Be Be Be Oe Be Se Se Be Be Oe Oe Oe Se Se Se Se Se Be Fe Se Ge Se Se Se Fe Be Se Se Se Se Se Se Be Se Se Se Ge Se Se Se Se Ge Se Se Se Se Oe Se Ss Se Oe Se Se Os ee 
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Analyze GSD Records 1$-5¢p -1984 2 a 3: 29 AX-11 Bliss<-32 V4.0-74 


Bue -PSECT_CHECK = Check Psect References 1a: = 8ep-1984 
Bsbttl "ANLSOBJECT_PSECT_CHECK = Check Psect References’ 


“Fancttenel Description: 
This routine is called at the end of an object module to check the 
psect references. We need to make sure that no undefined psects 
were referenced. 


Formal Parameters: 
non 


i 

i 

' 

! 

i 

i 

i 

! 

i mae Inputs: 
global data 
i Implicit Outputs: 
global data 
i 

i 

i 

i 

i 
le 


Returned Value: 
none 


Side Effects: 


global routine anl$object_psect_check: novalue = begin 


local 
Status: long; 


! First let's make sure that at least one psect was defined. An object 
i module must define at least one. 


if .highest_def_psect lss 0 then 
an\$format_error(anlobj$_objnopsc); 


! OK, now we are going to make sure that all referenced psects were defined. 
! We do this by looping through any psect referenced bits whose number is 
! higher than the highest defined psect. 


if .highest_ref_psect gtr ap 6 i def gore then ( 
anl$format_error(anlobj$ pod jund efpsc); 
incru i from .highest_def “ie h. ehighest_ref_psect do ( 
if .psect_ref_bitsl.iJ] t 
, anl$format pt ky objbadnum,.i); 
); 


! Now we can reset everything for the next module. 


highest_def_psect = it rer psect = -1; 

if .psect_ref_bits seee © 
status = Lib$free vm(Zret (65536/8), psect_ref_bits); 
check (.status,.sfatus); 

; psect_ ret bits = 0; 


ANALYZ.SRCJOBJGSD.B32; 


a] 
2 


oc 82 ON 


H 
081658 SD = wrely ze GSD Records 15 
v04 ANG JECT "PSE CT_CHECK = Check Psect References 14 
3; «7645 1198 return; 
; 7646 1170 
747 1171 end; 
003¢ 00000 
55 Q0000G CF 9E si 
54 0000" CF 9E& 0000 
5€ 04 C2 Q000C 
64 D5 QO00F 
09 18 00011 
00000000G 8F DD 00013 
65 01 FB 00019 
64 04 AS D1 O0001C 
25 15 90020 
00000000G 8F DD 00022 
65 01 FB 00028 
52 64 7D 00028 
10 11 Q002E 
0B 08 B84 52 €1 00030 
52 DD 00035 
00000000G 8F 0D 00037 
65 02 FB 00030 
52 06 00040 
53 52 D1 90042 
E9 1B 00045 
04 AG 01 CE 00047 
64 01 CE 00048 
08 A& D5 0004E 
22 13 00051 
08 A& YF 00053 
04 AE 2000 8F 3C 00056 
04 AE 9F 0005C 
000000006 00 02 FB O005F 
09 50 €8 00066 
50 DD 0006 
000000006 00 01 FB 00068 
| 08 <A4& D4 00072 
04 00075 


| 
& Routine Size: 118 bytes, Routine Base: $CODE$ + 086D 


23: 


3$: 


- 
ww 


: g AX-11 ats =32 V4.0-74 


ANALYZ. SRC 308/650 .832; 


ANL OBJECT. PSECT_CHECK, Save R2,R3,R4,R5 
ANL$FORMAT“ERROR, R 
HIGHEST _DEF_PSECT, R4 


a 
nines _DEF _PSECT 

PANLOBJS OBJNOPSC 

#1, ANLSFORMAT_ERROR 

HIGHEST _ REF _PSECT, HIGHEST_DEF _PSECT 
#ANLOBJ$_OBJUNDEF PSC 

#1, ANLSFORMAT panes 

HIGHEST _ DEF _PSECT, 

1. @PSECT_REF_BITS, 3$ 


#ANLOBJ$_OBJBADNUM 
#2, ANLSFORMAT_ERROR 


I 

I, R3 

2$ 

#1, HIGHEST_REF _PSECT 
1; HIGHEST~DEF ~PSECT 

PSECT_REF_BITS ~ 

PSECT_REF_BITS 

#81927 4(5P) 

4(SP) 

#2, LIBSFREE_VM 
TATUS, 5$ 

STATUS 

#1, LIBSSIGNAL 

PSECT_REF BITS 


Page 35 
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re + pray to = Analyze GSD Records 1b.3¢ <“Sep-1984 $3: 38:29 AX-11 Bliss-32 V4.0-742 Poor oa 


r JECT_LENV_REF = Mark Environment Reference 14-Sep-1984 ANALYZ.SRCJOBJGSD.B32;1 
: P38 1128 1 ¥e Bsbetl "ANLSOBJECT_ENV_REF = Mark Environment Reference’ 
: 751 1174 1: “Functional Description: 
OS ee | 1175 1! his routine is called to _ a environment reference in the environ=- 
; 119 1: ment reference bitvector. By remembering every environment that is 
; 756 117 1! referenced we can check whether undefined environments are ever 
: f 5 BE : } referenced. 
: res 1180 1 ! Formal Parameters: 
3 fe at : env number The number of the environment that was referenced. 
: 760 1183 1! Implicit Inputs: 
3 42 iee : global data 
: 76 1186 1: Implicit Outputs: 
5 ree ike : global data 
: 766 1189 Returned Value: 
; none 
; 768 1191 1! 
: aad 1136 | } Side Effects: 
: 771 1194 1 jee 
eg i 1195 1 
Ee ca 1196 #1 
: oa, Bb 4 § global routine anl$object_env_ref(env_number): novalue = begin 
: 776 1199 2 local 
“WS gd 4 1200 2 status: long; 
; 778 1201 2 
; 779 1s08 2 
; 780 1203 2 ! We begin oy checking to see whether or not an environment reference bitvector 
; 44 1Soe 2! has been allocated. If not, we allocate it and clear it. 
; 783 1206 § if .env_ref_bits egla 0 ( 
; «784 1207 3 “status = Lib$get_ Sunt Bret (65536/8) ,env, ref_bits); 
: 785 1208 3 check (.status,.statu 
s 4] 1s) 5 ch$fill(%x'00'. 6535078: env. ref_bits); 
: 788 1211 2° 
2 4 a4 isis .* ! Now we can set the environment bit and remember the highest referenced one. 
: 791 1214 2 env_ref_bitsl[.env_number] = true; 
: ° 45 § highest_ref_env ="max(.eny _number, .highest_ ref_env); 
: 794 1217 2 return; 
; 795 1218 2 
s 7% 1219 1 end; 


007C 00000 -ENTRY om See et ENV_REF, Save R2,R3,R4,R5,R6 3 1197 
56 0000" «CF 9E 00002 MOVAB ENV_REF_BITS, R6 
5E 04 2 00007 SUBL 2 


0 #4, 
66 D5 OO00A TSTL —_- ENV_REF_BITS 1206 


rw 


-—- WOn Ff Ww 


OBJGSD OBJGSD = Analyze GSD Records 4. op-1984 + 33: 29 AX-11_ Bliss<-32 V4.0-74 Page 


v04-000 ANLSOBJECT_ENV_REF = Mark Environment Reference 13-Sep-1984 ANALYZ.SRCJOBJGSD.832; 
7 12 0000C BNEQ 2s : 
6 0D 000 PUSHL a : 1207 
046 AE 2000 = BF C 0001 MOVZWLE #8192, 4(SP) : 
06 AE OF p0018 PUSHAB 4( : 
000000006 00 g Fe 001 CALLS #2, LIBSGET_VM ; 
09 E8 000 BLBS STATUS. 1$ ; 1208 
50 DD 000 PUSHL STATUS : 
090000006 00 01 FB 000 CALL “i, Ligssicn AL Fi 
2000 ~=s«éBF 00 6E 00 64 2c 4 1$: mMOVC #0. (SP), #0, #8192, GENV_REF _BITS ; 1209 
00 00 86 06 ac £2 0003 a8: BBSS § ENV_NUMBER, aENv. REF_BITS, 3$ : 1214 
50 06 ac OD 90038 $: MOVL ENV. NU UMBER, R 3 1218 
FC oA 50 D1 0003F CMPL RO, HIGHEL! _REF_ENV : 
04 18 08043 BGEG «= «48 : 
50 FC = ASOD -WU045 MOVL HIGHEST REF _ENV, RO ; 
FC 3=—A6 50 DO 00049 4$: MOVL 0, HIGREST-REF_ENV : 
04 0004D RET + 1219 


3 Routine Size: 78 bytes, Routine Base: S$CODES + 08E3 
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OBJGSD = Analyze GSD Records 15-Sep-1984 23:38:5 AX=-11 Bliss-32 V4.0-74 
ANLSOBJECT_ENV_CHECK = Check Environment Refere 1h=Sep-19 4 $7538: 28 LANAL YZ. SRC 108.1690 832.1 


Esbrtl *ANLSOBJECT_ENV_CHECK = Check Environment References’ 


Functional Description: ; 
This routine is called at the end of an object module to check the 
environment references. We need to make sure that no undefined 
environments were referenced. 


' Formal Parameters: 
none 


MUTURIFUTORUTUTRTY 


WR $0 DOONAN wo 


Implicit Inputs: 
global data 


! Implicit Outputs: 
global data 


' Returned Value: 
non 


Side Effects: 


global routine anl$object_env_check: novalue = begin 


Local 
status: long; 


! We are gets to make sure that all referenced environments were defined. — 
! We do this By looping through any environment reference bits whose number is 
! higher than the highest defined environment. 


if .highest_ref_env gtr .highest_def_env then ( 
an(S$format_error(anlobj$ objUndefenv); 
incru i from .highest_def_env+l to .highest_ref_env do ( 
if .env_ref_bits(li] then ; : 
an $format_error(anlobj$_objbadnum,.i); 


OuUukwn—O 


); 
 F 


! Now we can reset everything for the next module. 


highest_def_env = highest _ref_enyv = =-1; 

if .env_ref_bits nega 0 then : 
status = Lib$free_vm(%ref(65536/8) ,env_ref_bits); 
check (.status,.status); 

env_ref_bits = 0; 


return; 
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SNA AAA AAA A AA MAMMA 
=POPOPIPUWWIN CE POPOPORINOWGAHE & & AWPU PIDIPONININPINIDY 2 A A tt 


WR 0 COONAN Fwh—-oOO@n 


end; 
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16 
OP JGSD aging - anol yee GSD Records 13-Sep-19 4 $3723: 26 rae Bliss-32 v4.0-74 
06 ANLSOBJECT_ENV_CHECK = Check Environment Refere 14-Sep-1984 11:52: ANALYZ.SRCJOBJGSD .832; 
001C 000 -ENTRY ANLSOBJECT_ENV_CHECK, Save R2,R3,R4 
36 0000° cf 9E 0000 V ENV_REF_BITS, Ra 
E Sf 000 SUBL a4 
FBG FC AS DT OOO0A CMPL HIGHEST REF ENV, HIGHEST_DEF_ENV 
sh 15 QOO0F LEQ 3 
00000000G 8F DD 00011 PUSHL #ANLOBJ$_OBJUNDEF ENV 
0000G CF 01 FB 00017 CALLS #1, ANLSFORMAT_ERROR 
52 F8 A& 7D 0001 VQ HIGHEST_DEF_ENV, I 
1 11 000 GRR 
0D 00 B84 52 €1 B98 1$ C I, @ENV_REF_BITS, 2% 
52 dd 000 PUSHL =i 
00000000G 8F DD 00029 PUSHL #ANLOBJ$_OBJBADNUM 
0000G CF 0 FB OO002F CALLS #2, ANL SFORMAT_ERROR 
52 D6 00054 2$: INCL 
53 52 D1 00036 CMPL I, R3 
E7 1B 00039 BLEGU 1$ 
FC AG 01 CE 00038 3$: MNEGL #1, HIGHEST_REF_ENV 
FB AG 01 CE 0003F MNE GL 1, HIGHEST _DEF_ENV 
64 DS 00043 TSTL ENV_REF_BITS 
¢9 13 00045 BEQL 
4 0D 0004 PUSHL R4 
04 AE 2000 8F 3C 00049 MOVZWL #8192, 4(SP) 
04 AE 9F OOO4F PUSHAB 4(SP) 
00000000G 00 02 FB 00052 CALLS #2, LIBSFREE_VM 
09 50 €8 00059 BLBS STATUS, 4$ 
50 DD 0005C PUSHL STATUS 
00000000G 00 01 FB 4 Fa CALLS #1, LISS$SIGNAL 
64 D4 00065 4$: CLRL ENV_REF _BITS 
04 00067 5$: RET 
3; Routine Size: 104 bytes, Routine Base: S$CODE$S + 0931 
s 832 1274 1 
; 853 1275 0 end eludom 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 176 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, paged ag eotes 
SPLITS 211 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) 
SCODES 2457 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, (CON,NOPIC,ALIGN(2) 
: Library Statistics 
: ecesese ° Symbols eewccecee Pages Processing 
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4 JECT CK = Check Environment Refere iz: 
File Total Loaded 
-$255SDUA28: (SYSLIBISTARLET.L32;1 9776 46 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:0BJGSD/0BJ=0BJ$:OBJGSD MSRC$:OBJGSD/UPDATE=(ENH$:0BJGSD) 


SD = Ten Ene ck Records 


COMMAND QUALIFIERS 


Size: 2457 code + 387 data bytes 
Run Time: 00:42.8 

Elapsed Time: 02:26.0 

Lines/CPU Min: 1789 

Lexemes/CPU-Min: 16888 

em Used: 666 pages 

Compilation Complete 


Percent 
0 


Esdeec|9ee #4: 38:28 


Mapped 
581 


Ax-11 BLi 
ANAL YZ.SR 


Time 
00:01.0 


Do 
w 


